home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).adf / Include / MathTrans.i < prev    next >
Text File  |  1989-07-02  |  2KB  |  74 lines
  1.  
  2. {
  3.     These are the functions you'll need to do trigonometric and
  4. exponential work with PCQ.  The mathtrans.library requires the
  5. mathffp.library, but you won't have to worry about that since all
  6. PCQ programs open the mathffp.library.
  7.     In order to use any of these routines, you'll have to call
  8. OpenMathTrans() to open the library.  Mathtrans.library is not
  9. normally in memory, so Exec will have to load it from the LIBS:
  10. directory.  OpenMathTrans() just makes the appropriate
  11. OpenLibrary() call, by the way.  Nothing fancy.
  12.     When you are through with these routines, you'll need to
  13. close the library.  Normally you would just use CloseMathTrans,
  14. which just calls CloseLibrary() for you.  Instead, you can use
  15. FlushMathTrans, which will close the library, and also remove it
  16. from memory.  Remember, use one of these routines, but not both.
  17. Also remember that the library will be removed from memory only if
  18. no programs are using it.  If the library is not removed, chances
  19. are it was one of your programs that forgot to close it (that is,
  20. by the way, the reason we have to close libraries).
  21.  
  22. }
  23.  
  24.  
  25. Function OpenMathTrans(): Boolean;
  26.     External;
  27. Procedure CloseMathTrans;
  28.     External;
  29. Procedure FlushMathTrans;
  30.     External;
  31. Function SPAsin(r : real): real;
  32.     External;
  33. Function SPAcos(r : real): real;
  34.     External;
  35. Function SPAtan(r : real): real;
  36.     External;
  37. Function SPSin(r : real): real;
  38.     External;
  39. Function SPCos(r : real): real;
  40.     External;
  41. Function SPTan(r : real): real;
  42.     External;
  43. Function SPSincos(var c : real; r : real): real;
  44.     External;
  45.  
  46. {  SPSincos returns the sine value, and puts the cosine in the
  47.    variable in c }
  48.  
  49. Function SPSinh(r : real): real;
  50.     External;
  51. Function SPCosh(r : real): real;
  52.     External;
  53. Function SPTanh(r : real): real;
  54.     External;
  55. Function SPExp(r : real): real;
  56.     External;
  57. Function SPLog(r : real): real;
  58.     External;
  59. Function SPLog10(r : real): real;
  60.     External;
  61. Function SPPow(b, e : real): real;
  62.     External;
  63. Function SPSqrt(r : real): real;
  64.     External;
  65. Function SPTieee(r : real): real;
  66.     External;
  67. Function SPFieee(r : real): real;
  68.     External;
  69.  
  70. { The last two functions convert to and from IEEE real numbers.  Although
  71.   it says here that SPTieee returns a real number, the format is
  72.   inconsistent with with FFP format used by the rest of the math routines }
  73.  
  74.